* lisp/net/ange-ftp.el (ange-ftp-ls): Handle several "--dired" switches.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 9559b1251350a22ef00e617627d96a337f8d6b38..fa13dd57d1d479da3a553899f614d9259b8f55f1 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2547,7 +2547,7 @@ can parse the output from a DIR listing for a host of type TYPE.")
 FILE is the full name of the remote file, LSARGS is any args to pass to the
 `ls' command, and PARSE specifies that the output should be parsed and stored
 away in the internal cache."
-  (when (string-match "^--dired\\s-+" lsargs)
+  (while (string-match "^--dired\\s-+" lsargs)
     (setq lsargs (replace-match "" nil t lsargs)))
   ;; If parse is t, we assume that file is a directory. i.e. we only parse
   ;; full directory listings.